home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Drives, returning free space < prev    next >
Encoding:
Text File  |  1997-07-14  |  811 b   |  15 lines
  1. 'Description: Returns drive free space
  2.  
  3. 'Place the following code in a Form_Load()
  4.  
  5. 'Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" ( ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
  6. Dim free_Space As Long
  7. ChDrive "C:"
  8. Dim numSectorsPerCluster As Long
  9. Dim numBytesPerSector As Long
  10. Dim numFreeClusters As Long
  11. Dim numTotalClusters As Long
  12. Dim success As Boolean
  13. success = GetDiskFreeSpace("C:\", numSectorsPerCluster, numBytesPerSector,  numFreeClusters, numTotalClusters)
  14. free_Space = numSectorsPerCluster * numBytesPerSector * numFreeClusters
  15. Label1.Caption = "The total free space on Drive C: = " & format(Str$(free_Space/1024),"###,### ") & " KB"